home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib10.dsk / HIRES DUMP 2X.BASIC.bas < prev    next >
BASIC Source File  |  2023-02-26  |  955b  |  19 lines
  1. 10  REM  HIRES DUMP 2X.BASIC
  2. 15 D$ =  CHR$(4):I$ =  CHR$(9): REM  CONTROL-D AND CONTROL-I
  3. 20  PRINT D$;"BLOAD HIRES DUMP 2X": REM  A$6000,L$10E
  4. 25  HOME : VTAB 12: INPUT "TURN ON MX-80 AND PRESS RETURN";A$
  5. 30  HOME : VTAB 12:HR = 32: INPUT "HIRES PAGE 1 OR 2? ";A$: IF A$ = "2"  THEN HR = 64
  6. 35  HOME : VTAB 12:NI = 255: INPUT "NORMAL(N) OR INVERSE(I)? ";A$: IF A$ = "I"  THEN NI = 0
  7. 40  HOME : VTAB 12:TB = 8: INPUT "TAB (1-15) = ? (DEFAULT=8-CENTERED)";A$
  8. 45  IF A$ < >""  THEN TB =  VAL(A$): IF TB <1  OR TB >15  THEN 40
  9. 50  POKE 27,NI: POKE 23,HR
  10. 55  PRINT D$;"PR#1"
  11. 60  PRINT I$;"80N"
  12. 65  PRINT  CHR$(27) CHR$(61);: REM  CLEAR MOST SIG BIT
  13. 70  PRINT  CHR$(27) CHR$(68) CHR$(TB) CHR$(0);: REM  SET TAB
  14. 75  PRINT  CHR$(27) CHR$(65) CHR$(7);: REM  SET 7/72 INCH LINE SPACING
  15. 80  CALL 24576: REM  CALL THE MACHINE LANGUAGE PROGRAM AT $6000
  16. 85  PRINT  CHR$(27) CHR$(64): REM  RESET PRINTER TO DEFAULT SETTINGS
  17. 90  PRINT I$;"O"
  18. 95  PRINT D$;"PR#0"
  19. 96  END